home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD022a.dsk / INVOICE MENU.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  51 lines
  1. 1  REM  INVOICE MENU
  2. 2  REM                               2415 LINOLN AVE.
  3. 3  REM                               BELMONT CA. 94002
  4. 4  REM                               (415) 595-5945
  5. 5  REM 
  6. 6  REM                               (C) COPY-RIGHTED 1983                            
  7. 7  REM 
  8. 10  TEXT : SPEED= 255
  9. 100  POKE 780,1: POKE 781,2
  10. 150  CLEAR : RESTORE 
  11. 200  POKE 768,255
  12. 350 D$ =  CHR$(4)
  13. 400  PRINT D$;"PR#0"
  14. 450  TEXT : HOME 
  15. 500  FOR I = 1 TO 40
  16. 550  VTAB 1: HTAB I: PRINT "*"
  17. 600  NEXT I
  18. 650  FOR I = 1 TO 22
  19. 700  VTAB I: HTAB 1: PRINT "*"
  20. 750  NEXT I
  21. 800  FOR I = 1 TO 40
  22. 850  VTAB 22: HTAB I: PRINT "*"
  23. 900  NEXT I
  24. 950  FOR I = 1 TO 22
  25. 1000  VTAB I: HTAB 40: PRINT "*"
  26. 1050  NEXT I
  27. 1100 T$ = " INVOICE  SYSTEM "
  28. 1150 L =  LEN(T$): VTAB 1: HTAB 21 -L/2: PRINT T$
  29. 1250  VTAB 3: HTAB 6: PRINT "(";: INVERSE : PRINT "I";: NORMAL : PRINT ") CREATE AN INVOICE"
  30. 1300  VTAB 5: HTAB 6: PRINT "(";: INVERSE : PRINT "R";: NORMAL : PRINT ") READ INVOICES"
  31. 1350  VTAB 7: HTAB 6: PRINT "(";: INVERSE : PRINT "C";: NORMAL : PRINT ") CHANGE INVOICES"
  32. 1400  VTAB 9: HTAB 6: PRINT "(";: INVERSE : PRINT "D";: NORMAL : PRINT ") DELETE INVOICES"
  33. 1450  VTAB 11: HTAB 6: PRINT "(";: INVERSE : PRINT "P";: NORMAL : PRINT ") PRINT INVOICES"
  34. 1500  VTAB 13: HTAB 6: PRINT "(";: INVERSE : PRINT "*";: NORMAL : PRINT ") FILE SET-UP PROCEDURES"
  35. 1550  VTAB 15: HTAB 6: PRINT "(";: INVERSE : PRINT "$";: NORMAL : PRINT ") TOTAL OF INVOICES"
  36. 1600  VTAB 17: HTAB 6: PRINT "(";: INVERSE : PRINT "X";: NORMAL : PRINT ") POST INVOICES"
  37. 1650  VTAB 19: HTAB 6: PRINT "(";: INVERSE : PRINT "E";: NORMAL : PRINT ") END"
  38. 1700  VTAB 23: HTAB 1: PRINT "(C)  COPY-RIGHTED 1983 BY ERNIE MERLO  "
  39. 1750  VTAB 21: HTAB 2: PRINT "WHICH";: GET A$
  40. 1800  PRINT 
  41. 1850  FOR I = 0 TO 24
  42. 1900  PRINT "                                        "
  43. 1950  NEXT I
  44. 2950  HOME : TEXT 
  45. 3000  DATA T,H,E, ,E,N,D, , , , 
  46. 3050  FOR I = 1 TO 11
  47. 3100  READ A$
  48. 3150  HTAB 20: PRINT A$
  49. 3200  PRINT 
  50. 3250  NEXT I
  51. 3300  PRINT D$"RUN KICK.IT.OFF"